home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / t / tale / tale.dms / in.adf / getridofbinary (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1989-12-31  |  284 b   |  16 lines
  1. OPEN "alienated" FOR INPUT AS #2
  2. OPEN "ram:b" FOR OUTPUT AS #1
  3. kk=0
  4. WHILE NOT EOF(2)
  5. LINE INPUT #2,a$
  6. kk=kk+1 : LOCATE 1,1 : PRINT kk
  7. b$=""
  8. FOR i = 1 TO LEN (a$)
  9. c$=MID$(a$,i,1)
  10. IF ASC(c$)>31 AND ASC(c$)<127 THEN b$=b$+c$
  11. NEXT
  12. PRINT #1,b$
  13. WEND
  14. CLOSE
  15.  
  16.